home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 15 / 3 / DISK1536.ZIP / OPUS.ASP < prev    next >
Text File  |  1988-06-21  |  3KB  |  70 lines
  1. ;
  2. ; OPUS.ASP
  3. ; A script file by Timo Salmi to call Finnish Opus bulletin boards
  4. ;
  5. ; Chapters 4 and 8 of Procomm Plus User's Manual contain more information
  6. ; about the script command language for automating communications
  7. ;
  8.  
  9. IF NOT LINKED             ;if the call is not made through dialiang directory
  10.   CLEAR                   ;clear the screen
  11.   EMULATE ANSI
  12.   MESSAGE "Dialing Opus"  ;put the relevant bulletin board name here
  13.   MDIAL "999999"          ;put the relevant number here to dial it
  14. ENDIF
  15.  
  16. ASSIGN S0 "Failed to encounter "  ;first part of the error message string
  17.  
  18. ASSIGN S1 "Node 515/xx"   ;put the relevant Node number in xx
  19. WAITFOR S1                ;have we connected to the correct bulletin board
  20. PAUSE 1
  21. IF NOT WAITFOR            ;if failed to entounter "Node 515/xx" then
  22.   GOTO VIRHE              ;  goto the error routine
  23. ENDIF
  24.  
  25. SET TRANSLATE ON          ;set the (Scandinavian) translation table on
  26. SET BACKSPACE DEST        ;set the backspace to delete text
  27.  
  28. ASSIGN S1 "your FIRST name:"   ;you may have to replace this with "etunimesi"
  29. WAITFOR S1 45             ;wait for 45 seconds to encounter "your FIRST name"
  30. PAUSE 1
  31. IF NOT WAITFOR            ;if failed to encounter "your FIRST name" then
  32.   GOTO VIRHE              ;  goto the error routine
  33. ENDIF
  34. TRANSMIT "Matti^M"        ;put your first name here
  35.  
  36. ASSIGN S1 "your LAST name:"   ;you may have to replace this with "sukunimesi"
  37. WAITFOR S1                ;wait for 30 seconds to encounter "your LAST name"
  38. PAUSE 1
  39. IF NOT WAITFOR            ;if failed to encounter "your LAST name" then
  40.   GOTO VIRHE              ;  goto the error routine
  41. ENDIF
  42. TRANSMIT "Meikalainen^M"  ;put your last name here
  43.  
  44. ASSIGN S1 "^JMatti Meikalainen"  ;use ^J to ensure that your name was
  45. WAITFOR S1                       ;received correctly
  46. PAUSE 1
  47. IF NOT WAITFOR            ;if failed to encounter "^JMatti Meikalainen" then
  48.   SUBSTR S1 S1 2 10       ;  omit linefeed ^J from the error message
  49.   GOTO VIRHE              ;  goto the error routine
  50. ENDIF
  51. TRANSMIT "^M"             ;transmit carriage return
  52.  
  53. ASSIGN S1 "Password: "    ;you may have to replace this with the relevant
  54. WAITFOR S1                ;Finnish word
  55. PAUSE 1
  56. IF NOT WAITFOR            ;if failed to encounter "Password: " then
  57.   GOTO VIRHE              ;  goto the error routine
  58. ENDIF
  59. TRANSMIT "salainen^M"     ;put your password here
  60.  
  61. ALARM 3                   ;sound the alarm for three seconds
  62. EXIT                      ;exit the script file
  63.  
  64. VIRHE:                    ;the error routine
  65. STRCAT S0 S1              ;build up the error message
  66. MESSAGE S0                ;write the error message to the screen
  67. SOUND 440 100             ;sound a different alarm
  68. SOUND 350 100
  69. SOUND 440 100
  70. SOUND 350 100